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PROGRAMACAO DEJOGOS 

SERRA PELADA: TOQUE DE MIDAS 

rei Midas tinha o dom de transformar em ouro 
tudo o que tocava. Voce, em contrapartida, tera 
que fazer levantamentos geol6gicos, calcular cus- 
tos e realizar escavacoes. Mas nao se desespe- 
re: o computador facilitara" o seu trabalho, exibin- 
do graficos ilustrativos 681 



RECORRA AOS ARQUIVOS 

Programas e arquivos de dados. Limitacoes da fita 
cassete. Transferencia de dados de-urn progra- 
ma para outro. que e urn arquivo de dados? Sig- 
nificados de ler [read) e escrever (write) para urn 
computador 688 



PROGRAMACAO BASIC 

PROGRAMACAO DE GRAFICOS EM 3-D {4} 

Agora que voce ja conhece os segredos da pers- 
pectiva, esta em condicoes de reunir Vcirios pro- 
gramas e rotinas e desenhar as mais diversas fi- 
guras flutuando nas profundezas do espaco inte- 
restelar 694 




PLANO DA OBRA 

INPUT e uma obra editada em fascfculos semanais, e cada conjunto de 
15 fascicuSos compoe um volume. A capa para encadernacao de cada vo- 
lume estarS a venda oportunamente, 

FERIAS, VIAGENS, MLDANfAS... 

NAO FIQUE COM A COLECAO INCOMPLETA 

Se voce esta saindo de ferias, prerende viajar ou vai se ausentar por algum 
tempo, avise antecipadamente seu jornaleiro. Ele pode guardar os seus fas- 
ciculos enquanto voce estiver fora. Se, por qualquer motive, voce perdeu 
alguns numeros, pega-os tambem a seu jornaleiro, ou entre em contato 
com nossa Distribuidora: 

1 . Pessoalmcnte — Em Sdo Paulo, os ehderecos sao: Rua Bri gadeiro Tobias, 
773, Centre, telefone 227-4188; Av. Industrial, 117, Santo Andre, telefone 
449-0411, das 7h30 as 17h00 - dias liteis. No Rio de Janeiro, Av. Mem de 
Sa, 191/193, Centre, telefone (021) 222-1 All, das 7h30 as 1 7h00 - dias liteis. 

2. Por carta — Envie para: 

D1NAP — Distribuidora Nacional de Publicagoes 
Numeros Atrasados 

Estrada Velha de Osasco, 132 — Jardim Teresa 
CEP 06040 — Osasco — SP 

3. Por telex — Utilize o n? (011) 33 670 DNAP. 

Em Portugal, os pedidos devem ser feitos a Distribuidora Jardim de Pu- 

blicacoes L da. — Qta. Pau Varais, Azinhaga de Fetais, 2685, Camarate, 

Lisboa; Apartado 57; Telex 43 069 JARL1S P. 

Ateneao: Apos seis meses do encerramento da colegao, o atendimento dos 

pedidos dependera da disponibilidade do estoque. 

Obs.: Quando pedir livros, mencione sempre o titulo e/ou autor da obra, 

alem do ntimero da edicao. 



COLABORE CONOSCO 

Encaminhe seus comentarios, criticas, 

SERYICO DE ATENDIMENTO AO LE1TOR 

Caixa Postal 9 442, Sao Paulo — SP. 



sugestoes ou reclamavdes ao 



5 



EDITOR 
RICHARD CIV1TA 



HOVA CULTURAL 



Presidente 

Flavio Barros Pinto 

Diretoria 

Carmo Chagas, lara Rodrigues, 

Pierluigi Bracco, Placido Nicoletta, 

Roberto Silveira, Shozi Ikeda, 

Sonia Carvafho 

REDACAO 

Diretor Editorial: Carmo Chagas 

Editores Exeeutivoa: 

Berta Sztark Amar, Stefania Crema 

Editor Chefe: Paulo de Almeida 

Editoras Assistentcs: Ana Lucia B de Lucena, 

Marisa Soares de Andrade 

Chefe de Arte: Carlos Luiz Batista 

Assistenles de Arte: Dagmar Bastos Sampaio, 

Grace Alonso Arruda, Monica Lenardon Corradi 



Secretario de Redacio: Maura de Queiroz 

Colaboradores 

Consultor Editorial Responsavel: 

Dr. RenaloM.E. Sabbatini 

(Diretor do Niicleo de Informatica Biomedica da 

Universidade Estadual de Campinas-SP) 

Execucao Editorial; DATAQUEST Assessoria 

em Informatica Ltda., Campinas 

Traducao, adaplacao, programac. ao e redacao; 

Abilio Pedro Neto, Aluisio J. Dornellas de Barros, 

Marcelo R. Pires Therezo, Marcos Huascar Velasco, 

Raul Neder Porrdli. Ricardo J. P. de Aquino Pereira 

Coordenacao Geral: Rejane Felizatti Sabbatini 

COMERCIAL 

Diretor Comercial: Roberto Silveira 

Gerente Comercial: Joaquim Celestino da Silva 

Gerente de Circulate: Denise Mozol 

Gerente de Propaganda e Publicidade; Jose Carlos Madio 

Gerente de Pesquisa e Analise de Mercado 

Wagner M. P. Nabuco de Aratijo 



(CLO 



A Editora Nova Cultural Uda. i uma empresa do 

Grupo CLC - Comunicacoes. I.azer e Culture SA. 

Presidente: Richard Civita 

Diretoria: Flavio Barros Pinlo. Joao Gomez, 

Menahem M. Politi, Rene C.X. Santos, 

Stelio Alves lampos 



© Marshall Cavendish Limited, 1984/85. 

© Editora Nova Cultural Ltda.. Sao Paulo, 

Brasil, 1986; 2 a edicao, 1987. 

Edigao organizada pela Editora Nova Cultural Ltda, 

Av. Brigadeiro Faria Lima, 2000 -3? andar 

CEP 01452 Sao Paulo -SP- Brasil 

(Artigo 15 da Lei 5 988, de 14/12/1973). 

Esta obra loi composta pela AM Produces Craiicas Ltda, 

e impressa pela Companhia Lithograpliica Ypiranga, 



25 PROGRAMACAODEJOCOS 25 




ADI CIQNE AS ROTINAS 

QUE FALTAVAM 



LEVANTAMENTO GEOLOG ICO 
ESCAVACOES 



GRAFICOS ILUSTRATIVOS 



Figura da mitologia grega, o rei Midas 
recebeu de Dioniso (deus do vinho) 
o poder de transformar em euro tudo o 
que tocava, Em nosso jogo, porem, 
as coisas nao serao assim tao faceis. 



A primeira parte deste jogo apresen- 
tou opcoes como "Pesquisa e Desenvol- 
vimento", "Levantamento Geologico", 
"Cavar mais 200 m", "Vender Ouro no 
Mercado" e "Passar a Vez". As sub- 
rot inas que se seguem com p let am o pro- 
grama, particularizando cada opcao. 

A opcao "Pesquisa e Desenvolvimen- 
to" e obtida por meio da tecla 1; "Le- 
vantamento Geolbgico" e a opcao 2; 
"Cavar mais 200 m", a opcao 3; "Ven- 
der Ouro no Mercado", a opcao 4. A 
quinta opcao cuida de "Passar a Vez", 
de forma que nenhuma rotina especial 
e necessaria. As opcoes 1, 2 e 4 intro- 
duzem urn elemento de acaso em seu re- 
sultado, tentando, assim, imitar a rea- 
lidade do trabalho de mineracao. 



PESQUISA E DESENVOLVIMENT0 



1000 BORDER 6: PAPER 6: INK Or 

CLS 

1010 PRINT PAPER 1; INK 6;AT 3 

,4;" PESQUISA E DESENVOLVIMENTO 

";AT 4,6:"£para reduzir ob cub 
tos)" 

1020 PRINT AT 7 , 4 ; "Quanto prete 
nde inv«Btir?(51": INPUT rd 
1050 LET a{B,4)-a(»,4)-INT (rd* 
,05)-l 

1060 IF aC*,4)<0 THEN LET a(«. 
4)=0 

1060 LET a(*,2)-a (a,2)-rd: LET 
a(B.l)=aC»,i)-rd 
1100 PRINT AT 13.3i"Oe cuatoa d 
e aineracao foraa";TAB 3;"reduz 
idea en S";INT (rd*.05)+l;" por 

200 ■" 
1110 FOR z-1 TO 300: NEXT 2 
1120 RETURN 



rxt 




PRINT * {para reduzir op cuatoa 

) ■ 

1020 LOCATE 0,3: PRINT "Quanto p 

retende": INPUT "invent ir " ; RD 

1030 IF RDOO THEN 100O 

1050 A(M.3)-A(M.3)-IMT(RD/20)-3. 

1060 IF A(M.3)<0 THEN A(M,3)-0 

1080 ACM, 1) -A(M, 1> -RD: A(M.0>-A( 

M,0)-RD 

1100 PRINT: PRINT -Oa cuatoa de 

aineracao for an" :PRINT "reduzid 

oe «■ $"; INT CRD/20) +1; 'por 200 

■" 

1110 FOR Z-1 TO 2000: NEXT 

1120 RETURN 



1000 GOBUB 1500 

1010 LOCATE 1,0:PRINT "Peaquiea 
e D«e«nvolviBento" : LOCATE 1,1: 



[BE] 



1000 
1010 



HOME 

VTAB 



HTAB 5: INVERSE 



PRINT " PESQUISA E DESENVOLVIH 
ENTO ": NORMAL : PRINT : PRINT 

TAB( 10) "P/REDUZIR OS CU3T0S" 
1020 PRINT : PRINT : INPUT 'QU 
ANTO PRETENDE INVESTIR " ; RD 
1030 IF RD < THEN 1000 
1050 A(M,3) - A(M,3) - INT (RD 

/ 20) - 1 
1060 IF A(M,3) < THEN MM. 3) 

- 
1080 A(M,1) - A(M.l) - RD:A(M,0 
) - A(M,0) - RD 

1100 PRINT : PRINT "OS GUSTOS 
DE MINERACAO FORAM REDUZIDOS": 
PRINT "EM $"; INT CRD / 20) + 1 
[" POR 200 M" 

1110 FOR Z - 1 TO 2000: NEXT 
1120 RETURN 



63 
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1000 CLS 

1010 PRINT «2."p«BquiBI • Jesen 

volvlMnto" : PRINT 634," (PARA RE 

DUZIR OS CUSTOS) " 

1020 PRINT: INPUT "QUANTQ PRETEND 

I INVE8TIR ";RD 

1030 IF REKO THEM 1000 

1050 A<M,3)-MH,3)-INT(RD/20)-l 

1060 If A(H.3)<0 THEN A(N.3)-0 

1080 A(H,l)-A(H,l)-RD:A(n,0)-A< 

N,0)-RD 

1100 PRINT #257, "OS CUSTOS DE M 

INERACAO FORAM REDUZIDOS EH 

"jINT{RD/20J+l;"POR 200 M' 

1110 FOR Z-l TO 2000:NEXT 

1120 RETURN 

No programa do Spectrum, a linha 
1000, al£m de limpar a tela, muda suas 
cores. Nos demais computadores, as co- 
res da tela permanecem as mesmas ap6s 
a limpeza do video, 

A linha 1010 coloca um r6tulo no al- 
to da tela, antes que a linha 1020 per- 
gunte ao jogador quanto dinheiro sera 
investido em pesquisa e desenvolvimen- 
to (RD, ou rd no Spectrum, content a 
quantia escolhida). 

A linha 1050 diminui o custo de mi- 
neracao de acordo com a quantia inves- 
tida no processo de pesquisa. A linha 
1060 assegura que o custo de producao 
nao se torne negative A linha 1080 acer- 
ta o saldo total e a quantia do jogador, 
de acordo com o que foi gasto em "Pes- 
quisa e Desenvolvimento". 

A linha 1100 informa qual foi a redu- 
cao de custos por 200 m de escavacao. A 
linha 1110 content um laco FOR.. .NEXT 
que provoca uma pequena demora antes 
que a sub-rotina termine, 



LEVANTAMENT0 GE0L0GIC0 



2000 PAPER 4 ! BORDER 4 ! INK ! 
CLS 

2030 LET r{»)-0: LET c(»,l)-INT 
(RND*90>+10: LET c{»,2)-INT {( 
RND*5)+2)*200: LET c(«»3)-INT ( 
RND*200)+1- LET 11-INT (HND*3)- 
1 

2050 LET c (■ r 4)=c(B.2)+ll*200 
2070 LET c<«.5)-0: LET kk.-INT ( 
RNDMQ0): IF kk<cU.l) THEN LE 
T c(*,5)-l 

2080 PRINT PAPER 6; INK 0;AT 2 
,5i" LEVANT AMENTO GEOLOGICO ": 
PRINT AT 5.5 ;*Probabilidade de" 
: PRINT AT 6,5; "encontrar ouro: 
-;c(n,l) i"f: PP.INT AT 
8,5 ; "Provavel prof undid ade : ";c 
[», 2);*»*: PRINT AT 10,5;"Prova 
vel quant idade: " ; c (n , 3) ; "kg" 
2100 LET z-INT (RND*15QQO0) : LE 
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T a(m,2)-a(«,2)-z: LET a(«,l)-a 

(«,l)-z 

2110 PRINT FLASH 1 ;AT 12,0; "De 

oeia coiecar a eacavar (a/n)?" 

21Z0 LET rS-INKEYS: IF rS-"" TH 

EN GOTO 2120 

2130 IF rS-"a" THEN LET a(»,6) 

-0: LET r(n)=l: GOTO 3000 

2500 RETURN 



m 



2000 GOSUB 1500 

2030 R(M)-0:C(M.0)-INT(RND(])*9 

0)+10:C(M,1)-INT(RNDU)*5+2>*20 

0:C(M.,2)-INT(RNDU)»200+1) :LL-I 

NT(RNDa>*3)-l 

2050 C(M,3)-CCM.1)+LL*200 

2070 C<M,4)-0:KK-INT(RND(1)*100 

):IF KK<C<M,Q} THEN C(M,4)-1 

2080 LOCATE 3,0:PRINT "Levanta* 

ento Geol(5gico":PRINT:PRINT "Pr 

obabilidade de":PRINT "encontra 

r ouro: " ;C(M,0) ;"t" 

2090 PRINT: PRINT •provaVtel* : PRI 

NT "profundidade:";C(M,l) ;*!•*: P 

RINT: PRINT "Provavel ": PRINT "q.u 

antidade:";C{M,2) s"ko" 

2100 Z=INT (150000 ! *RNDU> ) :A(H, 

1)-A{M,1)-Z:A(M,0)-A(M,0>-Z 

2110 PRINT: PRINT "Deseja coaeca 
r aa": PRINT "eacavacSeo (S/N) ? 

I* 

2120 RS-INKEYS: IF RSO'S" AND R 

SO'N" THEN 2120 

2130 IF RS-"S" THEN A(M,5)-0:R( 

M)-l:GOTO 3000 

2500 RETURN 



s\m 



200 + 1) :L 
3} - 1 
+ LL * 200 
INT ( RND 

C{M,0) THE 

INVERSE : 



2000 HOME 

2030 R(M) - 0:C(M,0) - INT t R 

ND (1) * 90) + 10:C(H,1) - 200 

* INT ( RND (1) * 5 + 1):C(M,2 

> - INT ( RND (1) « 

L - INT ( RND tl) * 

2050 C(M,3} - CCM.l) 

2070 C(M,4) - 0:KK - 

(1) * 100) : IF KK < 
N C(H,4) * 1 
2080 VTAB 1: HTAB 7: 

PRINT " LEVANTAMENTO GEOLOGICO 

": NORMAL i PRINT : PRINT : PR 
INT "PROBABILIDADE DE" : PRINT ■ 
ENCONTRAR OURO: " iC (M,0) s "»" 
2090 PRINT : PRINT "PROVAVEL P 
ROFUNDIDADE: ";C(H,1);" M" : PRI 
NT : PRINT "PROVAVEL QUANT I DADE 
; " ;C(M,2) ;" KG" 
2100 Z - INT ( RND (1) * 15000 
0>:A(M,1> - A(M,1) - Z:A(M,0J - 

A(M.O) - Z 
2110 PRINT : PRINT "DESEJA COM 
ECAR AS ESCAVACOES (S/N) 7" 
2120 GET RS 
2130 IF R3 - "3" THEN A(M.5) - 

0:R(M) - 1:. GOTO 3000 
2500 RETURN 



D 



2000 CLS 



I ! 



2030 R(K)-O:C(H,O)-R*K>(90)+9:C< 

M.l)-(RND(5)+l)*2O0:C(tl»2)-RND( 

200) :LL-RHD(3)-2 

2050 cm,3)-C(H r l)+LL*20a 

2070 C(M.4J-0:KK-RMD(100)-1:IF 

KK<C<H,0) THEN C(H,4)-1 

2080 PRINT #5, "LEVANTAMENTO GEO 

LOOICO ":PRINT G129. "PROBABIL .D 

E ENCONTRAR OURO" ; C(H, 0) I ■ f ! PR 

ZHT «193."PROVAVEL PROFUNDIDADE 

•;C(H.l) ;'H':PRIHT •257,"PROVA 
VIL QUAMTIDADE " ;C (H. 2) i "KQ- 
2100 Z-RNDU50000)-1:A(H.1)-A(H 
,1)-Z:A(H,0)-A(H,0)-Z 
2110 PRINT *353,"DESEJA COMECAR 

AS ESCAUACOE8 7 " 
2120 R3-INKEY3IF R3<>"S" AUD R 
SO'H' TBKN 2120 
2130 ir R3""S" THSN A(M,5)-0:R( 
H)-1:OOTO 3000 
2500 RETURN 

Todas as maquinas limpam a tela na 
linha 2000. O Spectrum tambem muda 
as cores da tela. A linha 2030 faz com 
que o valor de R(M) — r(m), no caso do 
Spectrum — seja zero, para indicar que 
as escavacoes airtda nao comecaram. Es- 
sa linha tambem calcula as possibilida- 
des de encontrar ouro, alem da quanti- 
dade de metal e da profundidade pro- 
vavel do veio. LL (ou II) e urn numero 
aleatorio entre -let que sera usado na 
pr6xima linha para determinar a pro- 
fundidade real da mina (lembre-se de 
que o valor em C(M,2) e apenas a pro- 
fundidade provavel). 

A linha 2050 faz com que C(M,4) as- 
suma um valor igual a C (M,2) (mais ou 
menos 200 rn, ou seja, 200 vezes LL). 
A seguir, a linha 2070 decide se a mina 
vai ou nao ter ouro. Se nao houver ne- 
nhum ouro, C(M,5) se tornara zero. KK 
e outro numero aleat6rio, entre e 99. 
Ele e comparado com as chances de se 
encontrar ouro — se for menor do que 
estas, C(M,5) se tornara 1 para indicar 
que ha ouro na mina. ' 

A linha 2080 (2090 no Apple, no 
TK-2000 e no MSX) da ao proprietdrio 
o resultado do levantamento geologico. 
Os niimeros informam as chances de se 
encontrar ouro, onde e em que quanti- 
dade. Mas a existencia ou nao do metal 
na mina depende de urna serie de fato- 
res aleatorios. Dessa forma, o jogador 
deve ser muito criterioso ao fazer seus 
investimentos. 

Agora, as m&s noticias: o reIat6rio e 
pago e seu custo, tmprevisivel. Em to- 
do caso, a conta fica no maximo em 
$150000 (valor de Z escolhido na linha 
2100). O custo do relatorio e entao sub- 
traido das posses do jogador, e essa de- 
ducao aparece no saldo total. 

A seguir e oferecida a opcao de ini- 
ciar a escavacao — a linha 21 10 pergun- 
ta: "DESEJA COMECAR AS ESCA- 



VACOES (S/N)?" Se a resposta for 
sim, o programa prosseguira na sub- 
rotina de escavacao da linha 3000. 



A ESCAVACAO 



3000 BORDER 6: PAPER 6: INK 1: 
CL3 

3010 IF r(*)-0 THEN PRINT FLA 
SH 1;AT 9,6; "A *ina nao foi abe 
rta!*: FOR Z-1 TO 10: SOUND .3, 
-10: NEXT z: RETURN 
3020 BORDER 5: INK 0: PAPER 4: 
CLS 

3022 PRINT PAPER 5; TAB 14;CHR$ 
147;CHR$ 148;CHRS 149;TAB 14 ;C 
HRS 150;CHRS 151;CHR$ 152;CHRS 
153;TAB 13;CHRS 154;CHR$ 155 [CH 
RS 156;CHRS 157;CHRS 158;TAB 31 
;CHR3 32 

3025 FOR z-1 TO 32 r PRINT CHR$ 
144; : NEXT z 

3060 PRINT AT 4,0;: FOR z-100 T 
O 1400 STEP 100: PRINT TAB 4-LE 
N STRS z ; z : NEXT z 
3090 LET a{B,2)-a(m,2)-a(M.4) : 
LET a(m.l)-a(m,l)-a{in.4) : LET a 
(■,6)-a(B,6>+200: PAUSE 30 
3100 PRINT AT 3,15;CHRS 146: FO 
R f=4 TO (aCm,6)/100)+3: PRINT 
AT f,15;CHR$ 145: FOR v-1 TO 10 
: SOUND .01,-20: NEXT w: NEXT C 
3120 IF a<»,6)-c<«,4) AND c(m,5 
)»1 THEN GOTO 3500 
3130 PRINT FLASH 1; PAPER 5; AT 
6,6:" Nada de ouro aindai": IF 
a (m, 6} -c (in, 2) +200 THEN PRINT 
FLASH 1; PAPER 1; INK 6 ; AT 18. 
0;* Nao ha ouro neat a mina. 

Va cavar em outro lugar.V 
FOR z-1 TO 10: SOUND .5,-20: N 
EXT z: LET a(m,6)-0: LET r(m)-0 
3140 PAUSE 150 
3 300 RETURN 

3500 PPINT PAPER 6; INK 2; FLA 
SH 1;AT £,12;"0 U R 0": FOR Z— 
20 TO 50: SOUND .017,2: NEXT Z: 

PAUSE 75 
3550 LET a Cm, 5) -a (a, 5) +1: LET a 
(m,3)-a(m,3)+c(m,3) : LET a(m.l) 
-a(m,l)+(a(m.3)*er) : LET a(m.6) 
-0: LET rtn)=0: GOTO 3300 



m 



3000 CLS:GOSUB 1510 
3010 IF R(M)-0 THEN PRINT: PRINT 
: PRINT "A Mina nao foi aberta ! 
":PLA¥ "T25506V15AF" tFOR 2-1 TO 

3000: RETURN 
3020 LOCATE 14, 3: PRINT CHRSC195 
) ;CHR3 (196) sCHRS (197) : LOCATE 14 
,4:PRINT CHR5U98) ;CHR3(199) ; CH 
RS(200) ;CHR$(201) 
302 2 LOCATE 13, 5; PRINT CHR3C202 
) :CHRS(2Q3) ;CHR$(204) ;CHR3(205) 
; CHRS (206) : LOCATE 31,5:PRINT CH 
Hg (32) 

30 2 5 LOCATE 0,6: FOR Z-0 TO 29 :P 
HINT CHR3U92) ; :NEXT 



3060 LOCATE , 7 : FOR Z-100 TO 14 

00 STEP 100: PRINT TAB (5-LEN (STR 

3(Z))) ;Z:NEXT Z 

3090 A(M.1)=A(M,1)-A(M,3) :A(M.O 

) -ACM, 0) -ACM, 4) :A(M,5)-ACM.5)+2 

00 

3100 LOCATE 15,3:PRINT CHRSC194 

):FOR F-4 TO (A (M , 5) /100) +5 : L0C 

ATE 15,F:PRINT CHR$ (193) : PLAY'T 

25501S12M1U15A64":NEXT F 

3120 IF A(M,5)=-C[M.3) AND C(M,4 

)-l THEN 3500 

3130 LOCATE 4,0: PRINT " NADA DE 

OURO AINDA!":IF A(M, 5) =C(M, 1 ) + 
200 THEN LOCATE 0,21: PRINT "Nao 

ha ouro nesta ■ina" '.PRINT "Va 
cavar em outro lugar" : PLAVT2S5 
03CDEFG" : A (M . 5) «0 : R (M) »0 
3140 FOR Z-1 TO 1500: NEXT 
3 300 RETURN 

3500 LOCATE 10,0: PRINT "OUR 
O* 

3510 FOR Z-1 TO 10:PLAi"T25503C 
A" ■ NEXT 

3550 A(M.4)-A(M,4)+1:A(M,2)-A(M 
, 2)+C(M,2) :A(M,0)-A(M.0)+(A(M,2 
)*ER) :A(M,5)-0:R(M)-0:G0TO 3140 



DEE] 



3000 HOME 

3010 IF R(M) - THEN UTAB 1: 

PRINT "A MINA NAO FOI ABERTA ! 
": CALL - 198: FOR Z - 1 TO 10 
00: NEXT : RETURN 
3020 HGR : HCOLOR- 3: HPLOT 0, 
50 TO 279.50 
3030 HPLOT 125,45 TO 130.45 TO 

130,40 TO 125,40 TO 125,45: HP 
LOT 145,45 TO 150,45 TO 150,40 
TO 145,40 TO 145.45: HPLOT 135, 
50 TO 135,40 TO 140,40 TO 140,5 

3040 HPLOT 120,50 TO 120,40 TO 

130,30 TO 135,30 TO 135,25 TO 
140,25 TO 140,30 TO 150.30 TO 1 
50,5 TO 175.5 TO 175,35 TO 185, 
45 TO 185,50 TO 210,50 TO 175,5 
3050 HCOLOR- 6: FOR I - 58 TO 
151 STEP 8: HPLOT 0,1 TO 100,1: 

NEXT 
3090 A(M,1) = ACM.l) - A(M.3):A 
CM.Q) - ACM.O) - ACM.4) ;A(M,5) 

- A(M,5) + 200 

3100 HCOLOR- 5: FOR I - 5 TO ( 
A(M,5) * 8 / 100) + 50: HPLOT 1 
55 + 4 * RND (1),I TO 170 - 4 
* RND (1),I:X ■ PEEK { - 1633 
6) ' NEXT 

3120 IF A(M,5) - C(M.3) AND C( 
M,4) =1 THEN 3500 
3130 VTAB 22: HTAB 1: PRINT "N 
ADA DE OURO AINDA !": IF A(M,5) 
- C(M,1) + 200 THEN PRINT "NA 
O HA OURO NESTA MINA" : PRINT "V 
A CAVAR EM OUTRO LUGAR" :A CM , 5) 

- 0:R(M) - 

3140 FOR Z = 1 TO 1500: NEXT 

3 300 HGR : HOME : TEXT : RETUR 

N 

3500 HOME : VTAB 22: HTAB 15: 

PRINT "0 U R O !!!!": CALL - 1 

98 



■ 
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3550 A(M. 4) - ACM, 4) + 1:A(M,2) 
- ACH.2) + CCM.2) :A(M,0) - A(H 
.0) + A(M,2) * ER:A(M,5) - AtM. 
5) - 0:R(M) - 0: GOTO 3140 

Q 

3000 CLS 

3010 If R(M)-0 THEN PRINT 166.* 

A MINA HAO FOI ABERTA ! * ; : FOR 2- 

1 TO 10: SOUND 120 , 1 : NEXT : RETURN 

3015 IF A(M,5)>0 THEN LINE {140. 

40)- (157,191) .PRESET. BF:GOTO 30 

90 

3020 PCL8: SCREEN 1,0: COLOR 3: LI 

NE(0,0)-{255,31) .PSET.BF 

3022 PUT <1 31, 8) -(160, 31) .H.PSET 

3025 FOR Z-Q TO 31 : PUT(Z*B , 32) - 

(Z*B+7 . 34) . T , P3ET : NEXT 

3060 FOR Z-100 TO 1400 STEP 100 

:ZS-STR5(Z)+"-':DRAW"C4S8BH"+ST 

R9 (49-8*LEN (ZS) ) +* , "+STRS (32+10 

*Z/100) :GOSUB 9000: NEXT 

3090 SCREEN 1 , : A (M. 1) -A(M. 1 ) -A 

(M.3) :ACM,0)-A(H,0)-A(M,4) :A(H. 

S)-A(M,5)+200 

3100 PUT (145.32)-(152.39) ,D,PS 

ET:FOR F-4 TO (A (M , 5J/10O) +3 : PU 

T (145 , F*10) - (152 . F*10+9) , B , PSET 

:PLAY"T5001BDBDEBDBDE":NEXT 

3120 IF A{M,5)-C(M,3) AND C(M,4 

>-l THEN 3500 

3125 FOR Z-l TO 1000:NEXT 

3130 PRINT e40,"NADA DE OURO AI 

HDA! "; :IF A (H.5) -C(M. 1) +200 T 

HEN PRINT #128. -NAO HA OURO NES 

TA MIMA. VA CAVAR EH OUTRO LUGA 

R "; :PLAY"T50O3CDEFG":A(M,5)-Q: 

R(M)-0 

3140 FOR Z-l TO 2500: NEXT 

3300 RETURN 

3500 F-40+A(M.5)/10;COLOR 2: LIN 

E(140,F)-(157.F+5) ,PSET,BF 

3510 FOR Z-l TO 10 : PLA¥"T502CA" 

:PUT(140.F)-(157.F+5) ,H,NOT:NEX 

T 

3520 FOR Z-l TO 2000:NEXT 

3550 A(M,4)-A(H,4)+1:A(M.2)-A(M 

,2)+C(M,2) :A(M,O)-A(M,0)+(A(M,2 

>*ER) :A(K,5)-Q:R(M)-0:GQTO 3300 

Essa rotina e chamada de dois pon- 
tos diferentes do programa. A opcao de 
cavar e oferecida apos o levantamento 
geologico; mas ela tambem pode ser fei- 
ta a partir do menu, aprofundando a 
mina em 200 m — opcao 3. 

Como de costume, a primeira linha 
Iimpa a tela (no Spectrum e no MSX, 
as cores mudam). A linha 3010 verifica 
se ja foi feito urn levantamento geolo- 
gico. As linhas 3020 a 3090 cuidam dos 
graficos que representam a mina. A li- 
nha 3100 iiustra o processo de escava- 
cao, ao mesmo tempo que produz al- 
guns efettos sonoros. 

A linha 3 120 verifica se as escavacdes 
atingiram o nivel provavel do filao e se 
existe ouro na mina (e possivel que se 
tenha cavado mais de 1000 metros ape- 



nas para descobrir que nao ha nenhum 
metal). Se for achado ouro, o progra- 
ma vai para a linha 3500, que da as boas 
novas ao dono da mina, junto com al- 
guns efeitos sonoros (menos no Apple 
e TK-20O0). A linha 3550 ajusta as pos- 
ses do jogador conforme a quantidade 
de ouro descoberta. 

Se nao houver ouro na mina, o pro- 
grama continuara na linha 3130. Se a es- 
cavacao ultrapassar o nivel em que se es- 
perava achar o metal (200 m), o joga- 
dor sera informado de sua inexistencia. 
Se o buraco ainda nao chegou a essa 
profundidade, o jogador sera informa- 
do: "NADA DE OURO AINDA!** 



VENDA OURO 



4000 PAPER 6: INK 1: BORDER 6: 
CLS 

4020 PRINT INVERSE 1 ;AT 2,4;" 
CAIXA ECONOMICA FEDERAL *;AT 4. 
5; "Agenda de Serra Pelada": PR 
INT AT 8,1;" Cotacao do ouro: " 
;er;" par kg";AT 14 , 3 ; "Quantos 
quiloa vai vender?": INPUT nte 
4070 IF nte>a(m,3) THEN PRINT 

FLASH 1;AT 18,4; "Voce nao ten 
tanto ouro ! " 
4080 LET nte=INT nte 
4090 IF nte>a<«i,3) OR nte<0 THE 
N GOTO 40 20 

4095 PRINT AT 16.0;CHRS 32; TAB 
31;CHRS 32 
4100 LET a (■, 3) -a (■, 3) -nte: LET 

a{m,2)-a(ii.2) + (nte*er) : LET a( 
n,l)-a(n,l)+(nte*er) 
4130 PRINT PAPER 5;AT 16,l;nte 
; "kg vendidoa por 3";nte*er: PA 
USE 170: RETURN 
5000 RETURN 
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4000 GOSUB 1500 

4010 LOCATE 2,0: PRINT " CAIXA E 

CONOMICA FEDERAL": LOCATE 2,1: PR 

INT" Agencia de Serra Pelada" 

4020 PRINT: PRINT "CotagSo do ou 

ro:*:PRlNT ER;*por kg de ouro*: 

PRINT: INPUT "Quantoe kg vai ven 

der";NT 

4080 NT-INT (NT) 

4090 IF NT>A(M,2) OR NT<0 THEN 

4000 

4100 A(M,2)-A(M,2)-NT:A(M,1)-A( 

M,l)+NT*ER:A(M.0)-A(M,O)-NT*ER 

4130 PRINT: PRINT NT; "kg vendido 

a por";NT»ER:FOR Z-l TO 2000 :NE 

XT 

5000 RETURN 
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ENCIA DE SERRA PELADA " : NORMAL 

40 20 PRINT : PRINT "COTACAO DO 
OURO:": PRINT ER ; * POR KG DE O 

URO* : PRINT : INPUT "QUANTOS KG 
VAI VENDER ? " ; NT 

4080 NT - INT (NT) 

4090 IF NT > A(M,2) OR NT < 

THEN 4000 

4100 ACM, 2) ■ A(M,2) - NT:A(M,1 

) - A(M,1) + NT * ER:A(M,0) - A 

(M.0) + NT * ER 

4130 PRINT : PRINT NT;" KG VEN 

DIDOS POR ";NT * ER : FOR 2-1 

TO 1000: NEXT : RETURN 

5000 RETURN 

o 

4000 CLS 

4020 PRINT €4, "CAIXA ECONOMICA 

FEDERAL" : PRINT € 136, "COTACAO DO 

OURO *:PRINT €197. "1 KG DE OUR 
0-";ER: PRINT «2 2 8, "QUANTOS KG V 
Al VENDER" ; : INPUT NT 
4080 NT- INT (NT) 

4090 IF NT>A(M,2) OR NT<0 THEN 
4020 

4100 A(M,2)-A(M,2)-NT:A(M,1)-A( 
H,1)+(NT*ER) :A(K,0)-A(H,0)+(NT* 
ER) 
4130 PRINT e448,NT;-KG VENDIDOS 

POR ";NT*ER:FOR Z-l TO 1000 : NE 
XT: RETURN 
5000 RETURN 

A linha 4000 limpa a tela, como de 
costume. A linha 4020 coloca um rotu- 
to no video, im prime a cotacao do ouro 
no mercado e pergunta quanios quilos 
serao vendidos. A linha 4070 verifica se 
o jogador tern realmente a quantidade 
de metal que pretende vender. A linha 
4080 certifica-se de que essa quantida- 
de e um numero inieiro. 

Se o jogador tentar vender mais do 
que tern, ou quiser comercializar uma 
quantidade negativa de ouro, a linha 
4090 enviara o programa de volta ao ini- 
cio da sub-rotina. A linha 4100 ajusta 
as posses do jogador de acordo com o 
ouro vendido. 

Finalmente, a sub-rotina inf'orma ao 
jogador, por intermedio da linha 4130 t 
a quantia que ele recebeu pela venda do 
ouro. A linha 5000 apresenta a opcao de 
passar a vez. 



RET0QUES FINAIS 



TO USR "o"+7 
n,a: NEXT n 
0: BORDER 5: 



4000 HOME 

4010 VTAB 1: HTAB 6: INVERSE : 

PRINT " CAIXA ECONOMICA FEDERA 

L ": VTAB 2: HTAB 6; PRINT * AG 



1 FOR n=USR "a 

: READ a. POKE 
7000 PAPER 5: INK 
CLS 

7010 PRINT AT 2,4;"JORNAL DE SE 
RRA PELADA"; AT 4 . 3 ; "Falendaa 
e Concordatas" 
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7020 PRINT AT 10.0;" Fal iu ho 

je a eapretia de mine-racao " ; a$ 

(■];" Ltda,": PRINT "gracas a m 

a adainietracao de aeupropneta 

no. " 

7025 PRINT FLASH 1;AT 20,1;" Q 

ualquer tecla para recoaecar " 

7030 PAUSE 0: RUN 5 

8000 DATA 255,85,170,0,0,0,0,0, 

62,28,56,126,26,62,120,28 

8010 DATA 255,255,62,126,12 7,60 

,124, 126,0,0,0,0,1.1,1,1 

8020 DATA 7,29,49,45,255,255,91 

,126,128,96.48,80,152,140,252,1 

38 

8030 DATA 1.1,1,49,49.49.49,255 

, 12 2,19 7,62,95,15 3,255,15 3.126 

8040 DATA 209,177.224,128,128,1 

28,128,128,0,0,128,128.64,32.32 

.16 

8050 DATA 1,3,7,7,4,4,7,7,255,2 

55,255,25 5.149.149.159.159 

8060 DATA 24.126,153,255,126.15 

3.126,219.128.192,224,2 40,248.1 

68,248,255 

6070 DATA 16,8.8.4,14,31,31.255 
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E SERRA PELADA ": LOCATE 3 f 4:PRI 
NT' FALfiNCIAS E CONCORDATAS" 
7020 PRINTiPRINT "Faliu hoje a 
enprSoa de":PRINT "■uneraga'o "; 
ASCM);" Ltda," :PRINT "gracae a 
mi admiriiBtrac3o" : PRINT "de sen 

proprietirio" 
7030 LOCATE 0,19: PRINT "QUALQUE 
R TECLA PARA RECOMECAR" 
7040 IF INKERS-"" THEN 7040 ELS 
E RUN 

8000 DATA 255.85,170,0,0,0,0,0, 
62,26,56.126,28,62,120,28 
8010 DATA 255,255,62,126,127,60 
,124,126,0,0.0,0,1,1,1,1 
B020 DATA 7,29.49,45,255,255,91 
,126,128,96,48,80,152,140,252,1 
38 

6030 DATA 1,1,1,49,49,49,49,255 
,3.22,187,62,95,153,255,15 3.126 
6040 DATA 209,177,224,128,128,1 
28,128.128,0,0,128,128,64,32,32 
,16 

8050 DATA 1,3,7,7,4,4,7,7,255.2 
55,255,25 5,149,149,159,159 
8060 DATA 24,126,153,255,126,15 
3,126,219,128,192,2 24,240,248,1 
68,248,255 
8070 DATA 16,8,8,4,14,31,31,255 



10 B-RND(-TIME) 

70 SCREEN 1: COLOR 1, 10, 4 r KEY OF 
F 

60 FOR 1=0 TO 119 
90 READ A:VPOKE BASE ( 7) +192*8+I 
, A: NEXT 
_ 7000 GOSUB 1500 

7010 LOCATE 2,0: PRINT" JORNAL D 
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7000 HOME 

7010 VTAB 1: HTAB 7: INVERSE : 
PRINT " JORNAL DE SERRA PELADA 
" : NORMAL : UTAB 3 : HTAB 7 : PR 

INT "FALENCIAS E CONCORDATAS" 



7020 PRINT ; PRINT "FALIU HOJE 
A EMPRESA DE MINERACAO" : PRINT 
A${M>i" LTDA. GRACAS A MA ADMI 

NISTRACAO" : PRINT "DE SEU PROPR 

IETARI0" 

7030 PRINT : PRINT "QUALQUER T 

ECLA PARA JOOAR NOVAMENTE" 

7040 GET RS: RUN 

D 

7000 CL9 

7010 PRINT e?6,A$(M) :PRINT §168 

,"ACABA DE FALIR! * : PRINT «449. 

"QUALQUER TECLA PARA RECOMECAR" 

7020 IF INKEY3-" THEN 7020 ELS 

E RUN 

9000 FOR K-l TO LEN(ZS) 

9010 BS-MIDS(Z$,K,1) 

9020 IF BS>-*0" AND B$<-"9* THE 

N DRAW NU3<VAL(BS> ) :GOTO 9050 

9030 IF B3-"-"THEN DRAW "BF2R4" 

9050 NEXT 

9060 RETURN 

As linhas 7OG0 a 7030 abrigam uma 
rotina para iniciar uma nova partida. 

No Spectrum e no MSX. as linhas 
8000 a 8070 contem os dados para os 
blocos graficos que desenham a mina e 
o processo de perfuracao. No MSX, e 
usada a tela de textos de 32 colunas. Os 
padroes sao guard ados na tabela de pa- 
droes — BASE(7). No TRS-Color. as li- 
nhas 9000 a 9060 desenham o buraco, 
no lado esquerdo da mina. 
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ponto de vista Idgico, os arquivos 
s5o tratados em computacao 
como se fossem uma so unidade. 




la para dt 
creverqualqu mjunto de d 

dos aim. de uma 

vel ao computador, A rigor, cntn 

mestno um programa BASK 
uma rotina cm linguagcm de maquin 
um tcxto produ/ido por »m edil 
uma informacao armazcnada por u 
programa que gercm * de dad* 

pndem sci considerados arquivos. 



ARQUIVOS SER1A1S 



juivtw sao normalmente clas 
ficados segundo suas caracieristkas 
cordo com os ohict t\ os para 
quais >>)tados. 

O mais comum e mais simples d<. 
l re eles i serial, COmpoStO de dad 
gravados e l«do«; semprc ita mesrna > 
qiiSncia. Esse lipu de arquivo i cons 
tufdo de ires paries basicas: urn "cat 
calho" que, entre outras coisas, iden 
fiea o arquivo; uma "fileira" de dad 
e, finalmente, um mareador que defi 
sous I initios . 

Uma das desvantagen* do arquivo i 
rial e que a*; tnformacdcs que ele eo 
tem so podem ser processadas oa ordt 
em que foram gravadas. Isso signifi 
que, se o seu programa procurar por u 
dado que esta no meio do arquivo, 1 
do o conjunto devera ser pesquisai 
desde comeco. 

Tal situacao, contudo, pode ser se 
sivelmemc melhorada se os dados fore 
disi rihuidos com certa ordem. Quase i 
do arquivo usado em aplicacoes 
nado alianuracricamente. Hesse mod 
um arquivo serial pode ser coi retame 
te chamado de sequence . : ; :na tal 
tcrmo *.eja mais usado para Jcfmirqui 
quer especie de arquivo gravado em s 
rie, Um verdadeiro arquivo sequenci 
tem sua estrutura definida pelo us ,,J 
ou pelo programador, 
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ARQUIVOS EM DISQUETE 



A maior restrigao para arquivos em 
fita cassete e que eles s6 podem ser li- 
dos e gravados de forma serial; assim, 
eles funcionam na pratica como urn ar- 
quivo seqiieneial. Felizmente, para as 
aplicacdej nnptes, isso nao chega 

a ser urn grande problema. 

Os arquivos seriais sao usados com 
muita freqiigncia, nao somente em Sis- 
lemas que funcionam apenas com tit as 
cassete, como tambem naqueks que em- 
pregam metodos versateis de annazena- 
mento em disquete, 

Por outro lado, a maneira com que 
se leem dados em disco permite que se 
utilize urn outro tipo de arquivo: o ar- 
quivo de acesso randdmico (tambem 
chamado de arquivo de acesso direto ou 
arquivo relativo). Os sislemas que tra- 
balham com disco empregam ainda ou- 
tros tipos de arquivo. Mas estes ou nao 
sao usados por micros domeslieos ou 
sao especfficos de urn determinado sis- 
tern a operacional de disco. 

Todo disquete conta com utti certo 
ntimero de biocos, onde sao armazena- 
das as informacoes. Esses biocos se pa- 
recem com celulas de um favo de mel: 
ligadas enire si, mas claramente separa- 
das. Os biocos sao identificados por 
coordenadas: trilhas e set ores, lsto per- 
mite que eles possam ser acessados di- 
retamente e em qualquer ordem por um 
determinado prograrna. 

Cada bloco pode ser lido, corrigido, 
regravado, sem que os outros sofram in- 
terfereneias. Desse modo, o processa- 
memo da informacao se da rauito rapi- 
teatc e o tamanho do arquivo e li- 
mitado apenas pela capacidade de arma- 
zenamento do disco em uso. 



ARQUIVOS NO FORMATO ASCII 



Quando a informacao arquivada e in- 
dependente de programas e eneontra-se 



annazenada separadamente, a quantida- 
de de arquivos pode ser quase infinita. 
Com um programs editor de textos, por 
exemplo, tem-se arquivos separados pa- 
ra cartas padrao, artigos, avisos etc. 

Uma das maiores vantagens de se tra- 
balhar com um sistema de arquivos se- 
parados e que varios programas podem 
usar a mesma fonte de dados e nao ne- 
cessariamente do mesmo computador. 
Uma planilha de calculo pode acessar 
arquivos de outros programas e um ban- 
co de dados padrao pode ser usado pa- 
ra armazenar informacoes destinadas a 
qualquer tipo dc aplicacao. 

isso pode ser feito por meio de arqui- 
vos seqiienciais escritos na liguagem 
padrao do c6digo ASCII (para maio- 
res esclarecimemos, veja o artigo Tra- 
balhe com o Cddigo ASCII, a pagina 
361). A maioria dos eomputadores (mes- 
mo aqueles que usam um c6digo um 
pouco diferente do ASCII) permite que 
se opere com esses arquivos. 

Neste caso, tudo que e gravado, in- 
cluindo comandos e variaveis, e trans- 
formado em sequencias de caracteres do 
codigo ASCII. Um prograrna acaba se 
transformando num arquivo de lexto. 

Uma vez gravada, a informai- 
torna-se, peio menos em teoria, acesst- 
vel a outros eomputadores que possam 
ser ligados ao seu. Quando se usa um 
arquivo no formalo ASCII, pode-se 
chama-Io por intermedio de um editor 
dc textos. Assim, todas as facilidades 
ofereeidas peio editor podem ser utili- 
zadas para cscrever o seu prograrna. E, 
quando estiver pronto, ele sera grava- 
do como um arquivo de texto. 

Note que a "transportabilidade" de 
um arquivo no formato ASCII de uma 
para outras maquinas pode ser imped i- 
da se nete forem colocados caracteres de 
L-onirole. Esses c6digos sao habitual- 
mente usados peio editor para contro- 
lar a impressora. E, como tais caracte- 
res nao sao padronizados, provavelmen- 



te causarao problemas quando transfe- 
ridos para outra maquina. Dessa forma, 
um prograrna deve ser gerado sempre 
com a opcao "nao-documentacao" ou 
"nao-formatacao" (isto e, sem marcas 
de avaneo de linha, paragrafo, negriw 
e outras, encontradas nos arquivos de 
texto a serem impressos como cai 



ARQUIVOS DE DADOS 



Qualquer prograrna que utilize um 
banco de dados — como um gerencia- 
dor de arquivos de dados, uma plat 
de calculo, ou os pacotes de contabili- 
dade — funciona manipulando infor- 
macdes \& foraecidas ao sistema. Ao se 
trabalhar com um prograrna desse tipo, 
seria extremamente cansativo ter que di- 
gitar toda a informacao sempre que um 
apltcativo (como um prograrna de mala 
direta) fosse usado. 

A solucao para esse problema t 
te em armazenar a informacao separa- 
damente do prograrna, como um arqui- 
vo de dados. Tat procedimento aumen- 
ta muito a capacidade de prograrna e di- 
minui as exigencies de memoria do com- 
putador, visto que um sistema de arma- 
zenamento funciona como uma memd- 
ria virtual, ficando na memoria do com- 
putador apenas os dados em uso no 
momento. 

O menor componente de um sistema 
de arquivamento — computadorizado 
ou nao — £, de fato, a entrada. V arias 
entradas compoem um registro. Cada 
registro e dividido em campos. Cada 
campo tern um titulo ou r6tulo, que per- 
manece inalterado para todos os regis- 
tros daquele arquivo. Esse roiulo serve 
para identificar o tipo de dado que o 
campo content. Pode-se ver este tipo de 
estrutura em operacao no prograrna 
apresentado no artigo Organize as suos 
Colecoes (7), a pagina 68. 

Consideremos um arquivo simples de 
fichas. Ele e formado peio conjunto 
completo das fichas, que sao relaciona- 
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das por algum ponto comum (a lista dos 
sdcios de um clube, por exemplo), Um 
registro e, neste caso, uma ficha usada 
para identificar apenas um merabro do 
clube. Os campos sao cada parte da in- 
formacao contida na ficha — nome, en- 
dereco, telefone etc. 

Em um sistema que funcione com pa- 
pel, o arquivo pode ser transportado em 
um fichario, em pastas, caixas etc. Es- 
ses veiculos, habitualmente chamados 
de arquivo, na realidade nao passam de 
urn modo fisico de conter (e, as vezes, 
transportar) a informacao. 

Um sistema computadorizado fun- 
ciona de modo bem diferente. A nao ser 
que todos os dados estejam armazena- 
dos num so disco ou fita, nao se estabe- 
lece ai a mesma relacao "fisica" existen- 
te entre os pedacos de papel e seu invo- 
lucro. Em algumas aplicacoes, os dados 
ficam completamente separados, e po- 
dem ocupar discos ou fitas diferentes. 
Em outras, os dados sSo parte integran- 
ts do programa e nao devem ser consi- 
aerados um conjunto separado. 

Arquivos separados podem, com fre- 
qiiencia, ser usados por programas que 
nao sao responsaveis por sua criacao. 



Assim, uma informacao que foi traba 
lhada e armazenada por uma planilh 
de calculo pode ser acessada por um edi- 
tor de textos. Repare que a palavra e 
acessada e nao transferida — ou seja, 
o programa le e usa a informacao sem 
remove-la. Num sisLema manual* a 
transferencia consiitui a linica forma de 
passar informacao de um arquivo para 
outro sem copia-la. 



NOMES DE ARQUIVOS 



O que nao muda, no entanto, e a ne- 
cessidade de se dar um nome a um ar- 
quivo, Seria dificil, se nao impossivel, 
acessar alguma informacao num siste- 
ma computadorizado sem um nome 
com que o programa pudesse identifi- 
car rapidamente o conjunto de dados. 

Para que um arquivo computadori- 
zado seja adequadamente acessado por 
um programa, e preciso que seu nome 
seja escolhido com cuidado. Se nao hou- 
ver nomes, os dados armazenados em fi- 
ta podem ser lidos na forma "carregar 
o prdximo arquivo". Mas quaJquer re- 
tina de busca necessita de um nome pa- 
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ra identificar os dados requeridos, 

Em fita cassete pode-se ter mais de 
um arquivo com a tnesma denominagao, 
ou mesmo arquivos sem nenhum nome. 
Mas esses procedimentos geram graves 
probiemas. Se voce instruir o computa- 
dor para ler a ultima versao de um ar- 
quivo que tern o mesmo nome da cdpia 
anterior, ele nao podera decidir que ver- 
sao deve ler e ficara com a primeira que 
aparecer. A solucao e dar a cada cbpia 
um nome adequado e linico, 

Quando se usa um sistema de disco, 
o procedimerito para a escolha de nomes 
e o mesmo. Nesse sistema, porem, e per- 
feitamente possivel gravar um arquivo 
no lugar de outro (apagando este ulti- 
mo), caso o mesmo nome tenha sido da- 
do aos dois. Alguns sistemas operaeio- 
nais de disco impedem que isso aconte- 
ca, mas, geralmente, deve-se proteger o 
arquivo de um apagamento acidental — 
"travando-o", como se diz no jargao da 
informatica. 

Ao escolher o nome, certifique-se de 
que nao esta ultrapassando o tamanho 
maximo permitido por cada micro, Em 
fita» o espaco para o nome de um arqui- 
vo nao vai alem de dez caracteres no 
Spectrum, oito no TRS-Color e seis no 
MSX. O Apple nao usa nome para ar- 
quivos em fita. Em sistemas de disco, o 
tamanho varia bastante. 

Convem ressaltar que o nome de 
qualquer arquivo computadorizado de- 
ve ser de facil memorizacao. Al«§m dis- 
so, ele precisa traduzir claramente seu 
conteudo, Uma lista de todos os seus ar- 
quivos tamMm ajudara bastante. 

Os processes de transferencia de da- 
dos atrave"s de um mecanismo de arma- 
zenamento sao descritos pelas palavras 
gravar e ler {write e read, em ingles). Ca- 



da computador tern um conjunto (life- 
rente de comandos para essas duas ope- 
racoes, mas, de um modo geral, as roti- 
nas sao muito parecidas. 

Normalmente, o programa principal 
e o primeiro a ser carregado na memo- 
ria do computador — ele pode ser, por 
exemplo, um editor de textos ou um ge- 
renciador de banco de dados, 

Se o programa precisar de dados que 
nao estao nele proprio, estes devem ser 
carregados de um arquivo de dados ou 
do teclado, manualmente. A partir dai, 
os dados serao corrigidos, aUerados e 
trabalhados. Eles nao poderao ser mo- 
dificados enquanto permanecerem no 
disco ou na fita. 

Em alguns arquivos, toda a informa- 
cao tern que ser colocada na mem6ria, 
mesmo que apenas uma pequena porcao 
dela va ser trabalhada. Este e o caso do 
Spectrum com um Microdrive. Em ou- 
tros casos, pode-se ler apenas os dados 
que serao modtficados. Por fim, a in- 
formacao e gravada em um mecanismo 
externo de armazenamento (disquete ou 
fita cassete), ou enviada a outro meca- 
nismo, como uma impressora. 

Analisemos agora, mais deialhada- 
mente, os estagios de gravacao e leitu- 
ra. Primeiro, deve ser dada ao compu- 
tador uma instrucao para abrir um ca- 
nal de comunicacao, de modo que ele 
saiba que a informacao transitara por 
aquele ponto. Outras informacoes po- 
dem ser fornecidas a partir do coman- 
do de abertura do canal de comunica- 
cao, para especificar, por exemplo, que 
tipo de periferico esta sendo acessado. 
Geralmente o periferico sera um grava- 
dor cassete ou uma unidade de disquete. 

Aberto o canal, sao usados coman- 
dos para enviar ou gravar a informacao. 



no periferico escolhido. Imcialmente, os 
comandos sao empregados para receber 
e nao para enviar dados. Em qualquer 
dos casos, uma Area de mem6ria sera 
utilizada para armazenamento tempora- 
rio de informacoes (buffer). 

Quando o acesso a informacao ter- 
mina, e preciso fechar o canal de comu- 
nicacao. Assim, toda informacao que 
estiver no meio do trajeto (ou event ual- 
mente parada no buffer) sera forcada a 
terminal o percurso. Para encerrar, o 
computador marca o fim do arquivo — 
end affile (eof), em ingles. 

Ate ser reaberto, o arquivo nao trans- 
mitira nem recebera nenhuma outra in- 
formacao. Isso nao impede a manipu- 
lacao de arquivos por outros canais 
eventualmente abertos (sempre que o 
sistema seja capaz de trabalhar ao mes- 
mo tempo com varios canais). 

As instrucoes para executar essas ta- 
refas variam conforme o micro, Veja- 
mos cada uma detas. As instrucoes SA- 
VE e LOAD (e variantes) que se aplicam 
a programas nao serao abordadas. 

Em cada um dos exemplos, a letra N 
se refere ao ntimero do arquivo que £ 
usado por muitos dos comandos; X (ou 
X$) e a informacao transmkida. 



Se voce usa um gravador cassete pa- 
ra armazenar dados, esta limitado a gra- 
var programas, bytes e matrizes. Arqui- 
vos de dados podem ser manipulates 
com um Microdrive adequadamente ins- 
talado (esse dispositive nao e fabricado 
no Brasil). Os comandos de entrada e 
saida s5o os seguintes: 
OPEN* 




utilizado com a finalidade de preparar 
o sistema para a transferencia de in- 
formacao. 

Em sua forma padrao, esse coman- 
do fica assim: 
OPEN#N; "m" ; 1 ; "NOME DE ARQUIVO" 

onde a expressao NOME DE ARQUI- 
VO pode set uma variavel previamente 
definida. Os dados, por sua vez, sao 
transmitidos pelo canal de numero N, 
sendo m o canal do Microdrive. 

PRINT! 

usado na forma PRINT #N;X (ou XS> 

com o objetivo de enviar a informacao 
a ser gravada para o buffer de dados. 

INPUT! 

utilizado na forma INPUT #N;X (ou 

X$) para ler dados do buffer de dados. 
Estes sao lidos ate que surja um CR (car- 
riage return). 

CLOSE! 

fecha um canal de comunicacao previa- 
mente aberto. Seu formato e CLOSE* N. 

■ ■ 

Existem varios comandos para abrir 
linhas de comunicacao, principalmente 
em um gravador cassete. Ja as unidades 
de disco sao acessadas por comandos 
que variam de acordo com o sistema 
operacional de disco em uso. 

OPEN 

abre um canal de comunicacao para um 
periferico especffico. Para gravar dados 
em fita, esse comando toma a seguinte 
forma: 
OPEN 








onde apenas NOME DE ARQUIVO e 

uma variavel definida pelo programs do 
usuario. O numero -1 indica o gravador 
cassete. Se quisermos abrir um arquivo 
para leitura, devemos usar o comando 
na seguinte forma: 

OPEN "I",!-l.-NOME DE ARQUIVO" 
INPUTI 

le um cordao de um arquivo. A instru- 
cao EOF(-l) (eof signifies ./?m de arqui- 
vo) pode ser usada para evitar erros (im- 
pede que se tente ler dados alem da mar- 
cacao de fim de arquivo). 

PRINT! 

envia informacoes para o periferico es- 
pecificado pelo numero N. O comando 
toma esta forma: 

PHINT!N,XS 



g 
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onde o caractere N e - 1 para o gravador 
cassete e-2 para a impressora. 
Ja o comando 

CLOSE* 

fecha o canal de comunicacao com o pe- 
riferico, E usado na forma: 

CLOSEIN 

onde N e geralmente -1. 

ffU 

O MSX pode ser conectado tanto a 
urn gravador cassete como a urn contro- 
lador de discos para armazenamento de 
programas e dados. Abordaremos aqui 
os comandos references a manipulacao 
de arquivos de dados em fita: 

OPEN 

utilizado para abrir urn canal de comu- 
nicacao com varios perifericos, que po- 
dem ser: gravador cassete, tela de tex- 
to, tela de grafico, impressora, aciona- 
dor de discos. Num arquivo em fita, o 
comando toma esta forma: 

OPEN "CAS: NOME ARQUIVO" 
FOR INPUT AS IN 

para se !er dados de urn determinado ar- 
quivo usando o canal N (onde N pode 
ser 1,2 etc.). Para gravacao de dados, 
substitui-se INPUT por OUTPUT. 

PRINT! 

serve para enviar dados a urn periferi- 
co. Toma a forma 

PP.INTIN.X (OU XS> 

Quando se usa mais de uma variavel 
na mesma instrucao PRINT # , e neces- 
sario que sejam tornados alguns cuida- 
dos. Se forem variaveis numericas, nao 
ha problema, pois o BASIC se encarre- 
gara de separa-las. No entanto, expres- 
ses alfanumericas devem ser separadas 
explicitamente por viVgulas: 

PRINTI1,A$;",":B$ 

Esse comando pode ser combinado 
com a instrucao USING para determi- 
nar o formato do dado. 

INPUTI 

le dados de urn determinado periferico. 
Toma a forma 

INPUT|N,X Cou X$) 

No caso de variaveis numericas, um 
espaco, uma virgula, um retorno de car- 
ro (CR) ou um avanco de linha (LF) in- 
dicam o fim do numero. 

Para variaveis alfanumericas, serao 
reconhecidos os marcadores acima (com 
excecao do espaco). 



LINE INPUTI 

e usado para fazer a leitura de variaveis 
alfanumericas de um periferico. A dife- 
renca dessa instrucao em relacao ao co- 
mando anterior e que apenas o retorno 
de carro (CR) marca o fim do cordao 
que esta sendo lido. 

EOF<N) 

indica se o final do arquivo foi encon- 
trado. E* habitualmente usado paraevi- 
tar que se tente ler dados inexistentes no 
arquivo. O valor - 1 retorna quando o 
marcador de fim de arquivo e encontra- 
do. Esse comando e mass utilizado na 
forma 

IF EOF(l) THEN instrucao 

onde instrucao provoca geralmente o fe- 
chamento do arquivo. 

CLOSE 

serve para fechar o canal de comunica- 
cao de mimero N. Forga o envio dos da- 
dos remanescemes no buffer de dados 
para o periferico ligado a esse canal. To- 
ma a forma 

CLOSEttN 



turn 



O Apple e o TK-2000 sao extrema- 
mente limitados em sua capacidade de 
manipular arquivos em fita. Como no 
Spectrum, apenas programas e matrizes 
podem ser gravados em fita. A seguir, 
descreveremos alguns comandos e as- 
pectos mais importantes da manipula- 
cao de arquivos pelo sistema operacio- 
nal DOS #3.3 do Apple. 

Inicialmente, convem chamar a aten- 
cao para um fato essencial, que ja cus- 
tou muitas horas de (rabalho a mais de 
um programador: todos os comandos 
do sistema operational devem ser pre- 
cedidos de um caractere especial — 
CTRL-D. Esse caractere deve estar sem- 
pre na primeira posicao da linha. Desse 
modo, se antes de um comando houver 
um PRINT seguido de um ponto e vir- 
gula, que deixe o cursor numa posicao 
que nao seja a primeira da linha, o co- 
mando nao sera reconhecido como do 
DOS. Igualmenie "importantes sao as 
formas de colocar o CTRL-D na linha 
do comando. A mais segura consiste em 
definir uma variavel que contenha esse 
caractere e coloca-la na linha de coman- 
do. Outra maneira e simplesmente acio- 
nar CCTRL-D (ou seja, pressionar a te- 
cla CTRL simultaneamente com a tecla 
D) logo ap6s ter aberto as aspas exigi- 
das pelos comandos do DOS. 

Nos exemplos a seguir, recorreremos 
ao primeiro metodo, usando a variavel 



D$ (frequente entre os programadores do 
Apple). Ela e definida por meio do co- 
digo ASCII de CTRL-D: 

DS = CHRS (4) 

Vejamos alguns comandos: 

OPEN 

abre um canal de comunicacao entre a 
CPU e uma unidade de disco, assumin- 
do a seguinte forma: 

PRINT DS;"OPEN NOME ARQUIVO", 
Dd, Ss, Vv 

onde NOME ARQUIVO pode ser repre- 
sentado por uma variavel alfanumerica 
e ter ate" trinta caracteres. A letra D e 
seguida do niimero do drive acessado 
(1 ou 2). A letra S e acompanhada do 
niimero do soquete (ou slot) no qual a 
placa que controla as unidades de dis- 
co esta instalada (esse niimero e, em ge- 
ral, 6). E V e seguido do niimero do vo- 
lume do disquete, que 6 definido no mo- 
menta de sua formatacao. Esses tres lil- 
timos parametros sao opcionais e inde- 
pendentes: a presenca de um nao impli- 
ca o uso dos demais. 

READ 

e empregado para habilitar um arquivo 
em disco para a leitura de dados e toma 
a seguinte forma: 

PRINT DS.'READ NOME ARQUIVO" 

A seguir, digita-se o comando IN- 
PUT para ler os dados desejados do ar- 
quivo em uso. O comando PRINT D$, 
por sua vez, encerra a leitura de infor- 
macoes do arquivo de dados (D$ deve 
confer o caractere CTRL-D), 

WRITE 

envia e grava os dados em um arquivo 
em disco. Ele e usado na forma 

PRINT D$s "WRITE NOME ARQUIVO" 

Ele deve ser acompanhado de varios 
comandos PRINT para o envio dos da- 
dos. No caso de variaveis alfanumericas, 
elas devem ser separadas por um CR (re- 
torno de carro) para serem lidas indivi- 
dualmente mais tarde: 

PRINT AS;CHRS(13) ; BS 
CLOSE 

fecha o canal de comunicacao estabele- 
cido. Ele e usado na forma 

PRINT D$, "CLOSE NOME ARQUIVO" 
,Dd, Ss, Vv 

Como no comando OPEN, os tr£s lil- 
timos parametros sao opcionais. Neste 
caso, NOME ARQUIVO pode ser omi- 
tido, provocando o fechamento de to- 
dos os arquivos abertos no momento, 
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OBJETOS MULTIPLOS 



VARIE A PERSPECTIVA 



COMO DESENHAR UM GLQBQ 



CONTORNE OBJETO 



DESENHE UM TORO 




Agora que voce ja conhece os segredos 

da perspectiva, pode reunir 

va>ios problemas e rotinas e desenhar 

as mats diversas figuras 

flutuando no espaco interestelar. 



Ate" aqui trabalhamos apenas com 
fonnas retangulares, quadrados e circu- 



los concentricos. Ao avancar um pou- 
co mais em nosso estudo, entretanto, 
aprendemos a combinar (por meio de 
varias transformacoes) uma serie de gra- 
des numa vista em perspectiva de um 
cubo.Esteartigoensinacomo pequenas 
mudancas no programa desenvolvido 
ate este ponto pode nos tornar capazes 
de desenhar uma grande variedade de 
imagens tipo wireframe. 

Comecaremos com um desenho de fi- 



guras multiplas. Se voce ja testou o pri- 
meiro programa do artigo Programagdo 
de Grdficos em 3-D (3), deve ter nota- 
do as alteracdes da imagem em perspec- 
tiva quando a distancia do observador 
em reiacao ao objeto (D) e pequena, e 
o pouco efetto de perspectiva quando es- 
sa distancia, ao contrario, e muito gran- 
de. Esse programa sera desenvolvido 
agora de maneira a mostrar quatro 
cubos e nao apenas um. 



-~ 



MULT1PLICIDADE DE OBJETOS 



Os usuarios que gravaram em fita ou 
disco os programas dos artigos prece- 
dentes desta serie estao livres de boa par- 
te do trabalho de digitacao. Os que nao 
fizeram isso terao que inserir nao so o 
programa do artigo anterior (que se ini- 
cia na pagina 641) como tambem a re- 
tina que desenha circulos, apresentada 
no primeiro artigo desta serie (pagina 
581). 

O programa e constituido de blocos 
e rotinas, o que facilita a sua modifiea- 
cao para representar ao mesmo tempo 
quatro imagens em vez de uma. 

Desse modo, se quisessemos desenhar 
um conjunto de quatro cubos, por 
exemplo, precisariamos especificarsuas 
posicoes na tela e chamar quatro vezes 
a Rotina do Cubo. A posicao estaria 
melhor especificada na rotina que trans- 
forma as coordenadas. 

Passemos da teoria a pratica. Para 
comecar, modifique essa parte do pro- 
grama como mostramos a seguir (mas 
nao rode o programa por enquanto): 



[BE] 



8500 


XI = 


+ XO 




8510 


Yl - 


+ ¥0 




8520 


Zl « 


+ zo 





Tl * X + T4 * ¥ + T7 

T2 * X + T5 * Y + T8 

T3 * X + T6 * Y + T9 



fi.ua 



As variaveis XO, YO e ZO no final 
dessas tres linhas especificam um equi- 
valente, em cada uma das tres coorde- 
nadas, para determinar a separacao dos 
quatro cubos. Sao atribuidos vaiores a 
essas variaveis antes de os cubos serem 
desenhados. 

Agora digite essa outra secao de pro- 
grama e rode-a para ver qua! e o efeito 
do equivalente: 



8500 X1-T1*X+T4*Y+T7+X0 
8510 Yl-T2*X+TS*Y+T8+TO 
8520 Zl-T3*X+T6*Y+T9+ZO 



8500 LET X1-T1*X+T4»Y+T7+X0 
8510 LET Yl-T2*X+T5*Y+T8+YO 
6520 LET Z1-T3»X+T6*Y+T9+Z0 



BDEI 



1520 GOSUB 1000 

1530 XO - PP:YO - - PP:ZO - 
120 L - 20:PP - 20:N = 2 
ISO GOSUB 1500 
1500 XO - - PP:Y0 - 




PP:Z0 




Glohos, elipM-s, cubos, estacoes orbitais: as possibilidadts 
criadas pelo programa do lore e pela rotina da grade sao 
praticamenle ilimitadas. Observe a deformacao na perspectiva 
dos cubes, com pontos de fuga muito proximos. 



1540 GOSUB 1000 

1550 XO - PP:YO - PP;Z0 - 

1560 GOSUB 1000 

15 70 XO - - PP:YO = PP:Z0 = 

1580 GOSUB 1000 

1590 RETURN 

D 

120 L-10rPP-2O:N-2 

150 GOSUB 1500 

1500 XO--PP:YO— PPrZO-0 

1520 GOSUB 1000 

1530 XO-PP:YO— PP:ZO-0 

1540 GOSUB 1000 

1550 XO-PP: YO-PP :ZO-0 

1560 GOSUB 1000 

1570 XO—PP: YO-PP: ZO-0 

1580 G08UB 1000 

1590 RETURN 



m 



LET YO-PP: LET 



A versao para o MSX e a mesma do 
TRS-Color, exceto pela linha: 

120 L=20:PP=20:N=2 



120 LET L-20: LET PP-20: LET N 

-1 

150 GOSUB 1500 
1500 LET XO—PP: LET SO— PP: LE 
T ZO-0 

1520 GOSUB 1000 
1530 LET XO-PP: LET YO— PP: LET 

ZO-0 
1540 GOSUB 1000 

1550 LET XO-PP: LET YO-PP: LET 
ZO-0 



1560 GOSUB 1000 
1570 LET XO— PP: 

ZO-0 
1580 GOSUB 1000 
1590 RETURN 

A linha 120 contem a variavel PP, 
que transfere o valor para o equivalen- 
te na linha 15QO. 

A linha 150 chama uma rotina para 
desenhar quatro cubos. A sub-rotina es- 
pecifica uma posicao, como na linha 
1530, por exemplo, e chama a rotina do 
cubo na linha seguinte, desenhando as- 
sim os quatro cubos. 

Ao rodarmos o programa, teremos 
que fornecer alguns dados. O programa 
pedira primeiro pelo valor de D (distan- 
cia do piano de projecao). O valor 3000 
sera suficiente para comecarmos. O pro- 
grama entao pedira para que forneca- 
mos a posicao do observador (X, Y e Z), 
Experimente os valores que sugerimos 
a seguir e note como as imagens se dis- 
torcem quando D e pequeno (mas nao 
quando e!e £ grande). Tente usar seus 
proprios valores tambem, incluindo mi- 
lhares para D e mimeros negativos ou 
zero para X, Y, e Z: 




— 



— 













D 

100 

900 

20000 


X 

55 

200 

1000 


Y 


-250 
3000 


Z 



200 

10000 
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A grande variedade de vistas posst- 
veis com este programa nos permite fa- 
zer varios experimentos, mas nao deve- 
mos nos limkar a modificar apenas os 
valores da posicao do observador. A li- 
nha 120 eontem variaveis responsaveis 
pelo comprimento dos lados do cubo L, 
pela separacao destes (PP) e pelo niime- 
ro de quadrados na grade (N): tres va- 
riaveis que podem ser alteradas antes de 
se rodar o programa. 



DESEMHE UM GL0B0 



Embora curto, o programa que aca- 
bamos de inserir e capaz de desenhar 
imagens complexas, pois pode chamar 
qualquer uma das muitas rotinas conti- 
das na listagem. Uma dessas rotinas po- 
deria ser aquela que desenha circulos 
concentricos (linhas 6000 a 6160), apre- 
sentada no artigo Programafao de Grd- 
ficos em 3-D (/), a pagina 581 . Caso ela 
nao esteja em seu programa, digit e-a no- 
vamente e grave-a em disco ou fita pa- 
ra eventual uso futuro. 

Em seguida, modificaremos o pro- 
grama para que ele chame a rotina do 
circulo, em vez de chamar as rotinas da 
grade, do lado ou do cubo, Apague a 
linha 120 e acrescente estas linhas: 



QBE! 



20:N 

- 0:T8 - 

- 0:T5 - 

- 2 * PI 

- 
FOB KC - 1 TO INT (N / 2 



1M P. - 
2000 T7 
2010 T4 
2040 KA 
2050 KB 
2060 
) 

2070 Tl 
KB) :T3 - 
2060 XS - 0:YS 
2090 KB = KB + 
2100 NEXT KC 
2110 Tl - 1:T2 
2120 T4 - 0rT5 
2130 KA ■ KA / 
2140 KB - 0:HH 
FOR KC - 
0:TB 



IB: GOSUB 2000 

- 0:T9 - 

- 0:T6 - 1 
/ N 



COS (KB):T2 



SIN ( 



0: GOSUB 6000 



KA 



0:T3 

1:T6 



R 

TO H 

0:T9 



2150 

2160 T7 

03 (KB) 

2170 XS - 0:Y9 « 0:R 

N (KB) ! GOSUB 6000 

2180 KB - KB + KA 

2190 NEXT KC 

2200 RETURN 



BR 



RR 



SI 






MQ 



ISO R-20:N-18:GOSUB 2000 
2000 T7-0:TB-0:T9-0 




2010 T4-0;T5-0;T6-1 

2040 KA-2*PI/N 

2050 KB-0 

2060 rOR KC-1 TO INT (N/2) 

2070 Tl-COS(KB) :TZ-SIN(KB) :T3-0 

20B0 XS-0:YS-0: GOSUB 6000 

2090 KB-KB+KA 

2100 NEXT KC 

2110 Tl-l:T2-0:T3-0 

2120 T4-0:T5-i.T6-0 

2130 KA-KA/2 

2140 KB-0:RR-R 

2150 FOR KC-1 TO N 

2160 T7-0:TB-0:T9-RR*COS(KB) 

2170 XS-0:YS-0:R-RR*SIN(XB) :GOS 

UB 6000 

2180 KB-KB+KA 

2190 NEXT KC 

2200 RETURN 



100 LET XO-0 

-0 

150 LET R-2Q 

2000 
2000 LET T7-0 
-0 

2010 LET T4-0 
-1 



LET YO-0: LET ZO 

LET N-18: GOSUB 

LET T8-0: LET T9 

LET T5»0: LET T6 



2040 LET KA-2*PI/N 

2050 LET KB-0 

2060 FOR K-l TO INT (N/2) 

2070 LET T1-C08 KB: LET T2-SIN 

KB: LET T3-0 

2080 LET XS-Q: LET YS-0: GOSUB 

6000 

2090 LET KB-KB+KA 

2100 NEXT K 

2110 LET Tl-1: LET T2-0: LET T3 

-0 

2120 LET T4-0: LET T5-1: LET T6 

-0 

2130 LET KA-KA/2 

2140 LET KB-0: LET RR-R 

2150 FOR K-l TO N 

2160 LET T7-0: LET T8»0 : LET T9 

— RR*COS KB 

2170 LET X3-0: LET YS-0: LET R- 

RR*SIN KB: GOSUB 6000 

2180 LET KB-KB+KA 

2190 NEXT K 

2200 RETURN 

Ao rodar o programa, devemos for- 
necer valores para D, bem como para a 
posicao do observador. Com esses va- 
lores, a linha 150 chama a rotina que 
acabamos de inserir e desenha um glo- 
bo. Este e obtido por intermedio do de- 
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senho de uma serie de elipses (ou circu- 
los, dependendo da posicao do observa- 
dor). Tais elipses formam as linhas de 
longitude (que ligam os polos do globo) 
e as de latitude, que corrern paralelas a 
linha do equador. 

O raio do globo e especificado em R, 
na linha 150, e o numero de linhas de 
latitude e longitude, em N; este deve ser 
um valor par e maior do que 2. As li- 
nhas 2000 a 2050 ajustam as variaveis 
para posicionar o globo e para usa-las 
com contadores. O laco entre 2060 e 
2100 desenha as linhas de longitude, e 
o que fica entre 2150 e 2190 traca as li- 
nhas de latitude. 

O eixo do globo corta os pdlos e sua 
direcao e determinada pelas variaveis 
cujos valores definimos no eomeco do 
programa. Para verificar como os po- 
los do globo sao posicionados em rela- 
cao aos eixos da tela, estabeleca zero pa- 
ra duas das coordenadas da posicao do 
observador (0, 0, 200, por exemplo). De- 
pois, defina valores positives ou nega- 
tives para as tres coordenadas e veja co- 
mo os p6Ios se movimentam em relacao 
aos eixos. 



DO GLOBO A0 T0R0 



O globo e uma das formas mais sim- 
ples; para desenha-lo, recorremos a uma 
serie de elipses, mas o mesmo progra- 
ma contem todos os elementos necessa- 
rios para o desenho de uma forma mais 
exotica — um toro (ou argola). Para 
realiza-lo, precisamos apenas de peque- 
nas modificacoes na rotina do globo, co- 
mo mostra a listagem a seguir: 



HIE] 



1B:HT = 20:N2 = 



150 R - 10:N 

IB: GOSUB 2000 

2040 KA = 2 * PI / N2:NC - N2 

2045 IF RT - THEN NC = INT 

(NC / 2) 

2060 FOB KC = 1 TO NC 

2080 XS = RT:YS = 0: GOSUB 6000 

2130 KA = 2 * PI / N 

2135 IF RT - THEN KA - KA / 

2 

2J70 XS = 0:YS = 0:R = RT + RH 

* SIN (KB) :N - N2 : GOSUB 6000 



fffiSM 



ISO R-10:N-ie:BT-20:N2-18:GOSUB 

2000 
2040 KA-2*PI/N2:NC-N2 
2045 IF BT-0 THEN NC-INT (NC/2) 
2060 FOB KC-1 TO NC 
2080 XS-RTrYS-0: GOSUB 6000 
2130 KA-2*PI/N 
2135 IF RT-0 THEN KA-KA/2 




Ha alguma forma de se acelerar o 
desenho da estacao espaciat? 

O modo mais grosseiro de se acele- 
rar o programa consiste em reduzir o 
numero de etapas nas rotinas principals 
— a rotina do cfrculo na estapao espa- 
cial e a da grade nos cubos. Contudo, 
esse mditodo reduz a suavidade das 
elipses e altera a estrutura do desenho. 
Uma alternativa melhof seria diminuir 
o numero de acessos a essas rotinas. 

Se quisermos, por exemplo, diminuir 
o nCimero de segmentos que cortam o 
tubo de um toro, devemos reduzir os 
valores de H, N, RT e N2 na rotina do 
toro que comeca na tinha 2000. E ne- 
cessarto tambem que as rotinas mais 
usadas estejam no eomeco do progra- 
ma e que se usem variaveis em ver de 
numeros, sempre que possi'vel. uso 
indiscriminado de comandos GOTO 
tambem desacelera a execucao de um 
programa. 

Talvez a maneira mais facil de ace- 
lerar esse programa seja omitir o dese- 
nho dos tubos que ligam o toro ao glo- 
bo; faremos isso com um simples des- 
vio (GOTOI no programa. 



2170 XS-O:VS-0:R-RT+RB*SIN<KB) 
N-N2: GOSUB 6000 



ISO 

•20: 
2040 
2045 
NC/2) 
2060 
2080 

6000 
2130 
2135 
2170 
RT+RR 

6000 



LET R=10: LET N-18: LET RT 

LET N2-1B: GOSUB 2000 
LET KA-2*PI/N2: LET NC-N2 
IF RT=0 THEN LET MC=INT ( 



FOR K-l TO NC 

LET XS-RT: LET Y3-0: 



GOSUB 



LET KA=2*PI/N 
IF RT-0 THEN LET KA-KA/2 
LET XS-0: LET YS-0: LET R- 
*3TN KB : LET N-N2 : GOSUB 



Rode o programa e defina valores pa- 
ra D e para a posicao do observador 
(1000, 200, 200, 200, por exemplo). Des- 
ta vez, R contem o raio interno do tu- 
bo, e o numero de aneis e determinado 
por N. Esses aneis sao equivalentes as 
linhas de longitude no globo. RT espe- 
cifica a distancia entre a origem e o tu- 
bo, e N2 determina o numero de linhas 
que formam o tubo, o que equivale as 



Jj 



linhas de latitude no globo. O valor de 
RT deve ser maior que o de R, mas a 
rotina funcionara bem mesmo se isso 
nao acontecer. Altere o valor dessas va- 
riaveis e observe o efeito obtido. Se RT 
for zero e N igual a N2, o toro se trans- 
formara numa esfera, como aquela da 
rotina do globo. 



COMO COMBINAR IMAGERS 



Nao seria diffcil substituir a rotina do 
cubo que desenha quatro imagens jun- 
tas na tela pela do globo ou do toro. Do 
mesmo modo, tambem seria simples 
chamar qualquer combinacao das tres 
rotinas e desenhar, por exemplo: cubos 
dentro de um globo ou de uma argola 
ou mesmo um sistema em que uma ar- 
gola contenha um globo que, por sua 
vez, contenha um cubo. Poderiamos 
ainda usar declaracdes GOTO em cer- 
tas linhas para suprimir os dots ultimos 
lados, tornando assim menos confuso o 
desenho. Digite essas linhas e rode o 
programa para ver surgir uma imponen- 
te estacao espacial. 



[ffl[S] 



150 003UB 3000 

3000 R - 6:N - 12:RT - 40:N2 - 

24: GOSUB 2000 

30 30 FOB F - 1 TO 6 



3040 A - 


F + .25) * PI / 3:L1 


- 10:L2 - 


34:N1 - 12:R - 2;N2 - 


8; GO SUB 


3500 


3050 NEXT 


3060 B - 10:N - 12:RT - 0:N2 ■ 


12; GOSUB 


2000 


3070 RETURN 


3500 SA - 


SIN (A) 


3530 CA - 


COS (A) 


3540 Tl - 


- SA:T2 - CA:T3 - 


3550 T4 - 


0:T5 - 0:T6 - 1 


3560 EA - 


(L2 - LI) / Nl 


3570 EB - 


LI 


3580 FOR 


EC » TO Nl 


3590 T7 - 


EB * CA:T8 • EB * SA: 


T9 - 




3600 XS - 


0:YS - 0:N - N2: GOSU 


& 6000 




3610 EB - 


EB + EA 


3620 NEXT 


3630 Tl - 


CA:T2 - SA:T3 - 


3640 FOR 


EC - 1 TO N2 


3650 EA - 


EC * PI / 8 


3660 T7 - 


R * SA * COS (EA) :T8 


- - R * 


CA * COS (EA) :T9 - R 


* SIN (EA) 


3670 XS - 


L1:YS - 0:XE ■ 12: YE 


- 0: GOSUB 9500 


3680 NEXT 


3690 RETURN 



Q 



2000 
3030 FOR F-l TO 6 
3040 A-(F+.25)*PI/3:Ll-10:L2-34 
:Nl-12:R-2:N2-8:GOSUB 3500 
3050 NEXT 
3060 R-10:N-12:RT-0:N2-12:GOSUB 

2000 
3070 RETURN 
3500 SA-SIN(A) 
3530 CA-COS(A) 
3540 Tl— SA:T2-CA:T3-0 
3550 T4-0:T5-0:T6-1 
3560 EA-(L2-L1)/N1 
3570 EB-L1 
3580 FOR EC-0 TO Nl 
3590 T7-EB*CA:T8-EB*SA;T9-0 
3600 XS-0:Y9-O.N-N2: GOSUB 6000 
3610 EB-EB+EA 
3620 NEXT 

3630 Tl-CA:T2-SA:T3-0 
3640 FOR IC-1 TO N2 
3650 EA-EC*PI/B 

3660 T7-R*SA*COS(EA) :T8--R*CA*C 
OS(EA) :T9-R*BIN(EA) 
3670 XS-L1:¥S-0:XE-L2:YE-0:G08U 
B 9500 
3680 NEXT 
3690 RETURN 
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150 GOSUB 3000 

3000 R-6 : N- 1 2 : RT-40 : N2-24 : GOSUB 



150 GOSUB 3000 

3000 R=6:N=12:RT-40:N2=24:GOSUB 

2000 
3030 FOR F-l TO 6 
3040 A= (F+ . 25) *PI/3 :L1»10 : L2-34 
:Nl-12:R-2:N2-e:GOSUB 3500 
3050 NEXT 
3060 R-10:N-12:RT-0:N2-12:GOSUB 

2000 
3070 RETURN 
3500 SA-SIN(A) 
3530 CA-COS(A) 
3540 Tl=-SA:T2=-CAlT3-0 
3550 T4=0:T5-0:T6-1 
3560 EA-(L2-L1)/N1 
3570 EB-L1 
3580 FOR EC-0 TO Nl 
3590 T7"EB*CA:T8-ER*SA:T9 
360 XS=0 : YS-0:N=N2: GOSUB 
3610 EB-EB+EA 
3620 NEXT 

3630 Tl-CA:T2-SA:T3-0 
3640 FOR EC-1 TO M2 
3650 EA»EC*PI/8 
3660 T7=R*SA*C0S(EA) :T8--R 
OS(EA) :T9-R*SIN(EA) 
3670 XS=L1:YS-0:XE-L2:YE-0 
B 9500 
3680 NEXT 
3690 RETURN 



150 GOSUB 3000 
3000 LET R-6: LET N-24: LET RT- 
40: LET N2-24: GOSUB 2000 
3030 FOR F-l TO 6 
3040 LET A»(F+.25)*PI/3: LET LI 
-10: LET L2-34: LET Nl-12: LET 
R-2: LET N2-8 : GOSUB 3500 
3050 NEXT F 
3060 LET R-10: LET N-12: LET RT 



*CA*C 
GOSU 




COMO MELHORAR A N1TIDEZ 
Quando a imagem dos quatro cubos 
e pequena — como acontece sempre 
que os valores para a posicao do ob- 
servador (X, Y e Z) sao bem maiores 
que o da distancia de observacao D — 
torna-se diffcil perceber o que se pas- 
sa durante a execucao do desenho. 
Pode-se melhorar a nitidez inserindo de- 
claragoes GOTO em locais apropnados 
ao longo do programa (entre as linhas 
1 000 e 1 1 70), A mais simples dessas 
declaracoes seria GOTO 1220, insert- 
da na Hnha 1125 (linha nova) do pro- 
grama dos quatro cubos. 



-0; LET N2-12: GOSUB 2000 
3070 RETURN 
3500 LET SA- 
3530 LET CA- 
3540 LET Tl' 

T3-0 
3550 LET T4-0: LET T5-0: LET T6 



•SIN A 
V-COS A 
L--SA: LET T2-CA: LET 



3560 LET EA 
3570 LET EB 
3580 FOR E- 
3590 LET T7 
: LET T9-0 
3600 LET XS 
N2: GOSUB 6 
3610 LET EB 
3620 NEXT E 
3630 LET Tl 
T3-0 

3640 FOR E- 
3650 LET EA 
3660 LET T7 
=-R*CA*COS 
3670 LET XS 
E-L2; LET Y 
3680 NEXT E 
3690 RETURN 



(L2-LD/N1 
= L1 

TO Nl 

EB*CA: LET TB=EB*SA 

0: LET YS-0: LET N- 
000 
■EB+EA 

-CA: LET T2»SA: LET 

1 TO N2 

E*PI/8 
-R*SA*COS EA: LET T6 
EA: LET T9=R*SIM EA 

LI : LET YS=0: LET X 
E-0: GOSUB 9500 



A extensao de experimentos possiveis 
com o programa de toro e ilimitada. 
Tente alguns niimeros pequenos para D 
(de 100 a 500, digamos), juntamente 
com diversos valores para X, Y e Z; vo- 
ce obtera, assim, diferentes perspectivas 
(especialmente porque os segmentos do 
toro que estiverem muito prOximos se- 
rao omitidos). Tente tambem valores 
grandes para D e observe o que aconte- 
ce com a distorcao. 

Agora, como simples desafio, pode- 
riamos dar um toque final ao programa, 
adicionando cor ao fundo, por exemplo. 
Deixaremos por conta de sua criativida- 
de incluir estrelas e planetas ao redor da 
estacao. 

















LINHA 


FABRICANTE 


MODELO 
Thor2010 


FABRICANTE 


MODELO 


PAIS 


LINHA 


Apple 11 + 


Appletronlca 


Appletronica 


Trior 2010 


Brasil 


Apple II + 


Apple 11 + 


CCE 


MC-4000 Exato 


Apply 


Apply 300 


Brasil 


Sinclair ZX-81 


Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasil 


Apple II + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasil 


Apple II + 


Apple 11 + 


Digitus 


DGT-AP 


CPA 


Polaris 


Brasil 


Apple II + 


Apple 11 + 


Dismac 


D-8100 


Codimex 


CS-6508 


Brasil 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC II 


Digitus 


DGT-100 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Houston 


Houston AP 


Digitus 


DGT-AP 


Brasil 


Apple II + 


Apple 11 + 


Magnex 


DM II 


Dismac 


D-8000 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MXZ001 


Dismac 


D-8001/2 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasil 


Apple II + 


Apple 11+ 


Maxitronjca 


MX-64 


Dynacom 


MX-1600 


Brasil 


TRS-Color 


Apple 11+ 


Maxitronica 


Maxitronic 1 


ENIAC 


ENIAC II 


Brasil 


Apple II + 


Apple 11+ 


Microcraft 


CrattlPtus 


Engebras 


AS-1000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple II Plus 


Filcres 


NEZ-8000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple II + 


Apple 11 + 


Milmar 


Apple Senior 


Gradients 


Expert GPC1 


Brasil 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasil 


Apple II + 


Apple 11 + 


Polymax 


Maxxi 


Kemitron 


NajaBOO 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Polymax 


Poly Plus 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple It + 


Spectrum 


Mlcroengenho 1 


LZ 


Color 64 


Brasil 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum sd 


Magnex 


DM II 


Brasil 


Apple 11 + 


Apple 11 + 


Suporte 


Venus II 


Maxitronica 


MX-2001 


Brasil 


Apple 11 + 


Apple!t + 


Sycomig 


SICI 


Maxitronica 


MX-48 


Brasil 


Apple 11 + 


Apple 11 + 


Unitron 


APII 


Maxitronica 


MX-64 


Brasil 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


Elppa II Plus 


Maxitronica 


Maxitronic I 


Brasil 


Apple II + 


Apple 11 + 


Victor do Brasfl 


ElppaJr. 


Microcraft 


Craft ll Plus 


Brasil 


Apple 11 + 


Apple lie 


Microcraft 


Craft lie 


Microcraft 


Caftlle 


Brasil 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasil 


Apple Me 


Apple He 


Spectrum 


Mlcroengenho II 


Microdigital 


TK82C 


Brasil 


Sinclair ZX-81 


MSX 


Gradlente 


Expert GPC-1 


Microdigital 


TK-83 


Brasil 


Sinclair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-85 


Brasil 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigitai 


TK-90X 


Brasil 


Sinclair Spectrum 


Sinclair Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasfl 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Engebras 


AS-1000 


Milmar 


Apple Master 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Filcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasil 


TRS-80 Modi V 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxi 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Prologica 


CP-200 


Polymax 


Poty Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Ritas 


Ringo R-470 


Prologica 


CP-200 


Brasil 


SlnclairZX-81 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasil 


TRS-80 Mod.lll 


Sinclair ZX-81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasil 


TRS-Color 


TRS-80 Mod. I 


Dlsmac 


D-8000 


Prologica 


CP-SOO 


Brasil 


TRS-80 Mod.lll 


TRS-80 Mod. I 


Dlsmac 


D-8001/2 


Ritas 


Ringo R-470 


Brasil 


Sinclair ZX-81 


TRS-80 Mod. I 


LNW 


LNW-80 


Sharp 


Hotbit HB-800( 


I Brasil 


MSX 


TRS-80 Mod. I 


Video Genie 


Video Genie t 


Spectrum 


Mlcroengenho 


I Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Mlcroengenho 


II Brasil 


Apple He 


TRS-80 Mod.lll 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Kemitron 


NajaSOO 


Suporte 


Venus II 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-300 


Sycomig 


SICI 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasil 


TRS-80 Mod.lll 


TRS 80 Mod.lll 


Sysdata 


Sysdata III 


Sysdata 


Sysdata IV 


Brasil 


TRS-80 Mod.IV 


TRS-80 Mod.lll 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasil 


TRS-80 Mod. II 1 


TRS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.IV 


Sysdata 


Sysdata IV 


Timex 


Timex 1S0O 


USA 


Sinclair ZX-81 


TRSColor 


Codimex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APII 


Brasil 


Apple 11 + 


TRSColor 


LZ 


Color 64 


Victor do Brasil 


Elppa II Plus 


Brasil 


Apple 11 + 


TRSColor 


Microdigital 


TKS-800 


Victor do Brasil 


Elppa Jr. 


Brasil 


Apple 11 + 


TRSColor 


Prologica 


CP-400 


Video Genie 


Video Genie I 


USA 


TRS-80 Mod. 1 


INPUT foi especialmente projetado para 
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microcomputadores compativeis com as sete principals ] Sinclair zx-bi 


■_■ TRS-80 L 


JLU TK 2000 


frri msx 




jjnhas existences no mercado. 

Os blocos de textos e listagens de programas aplicados ^^^ 






Quando o emblems for seguido de uma 
faixa, entao lanlo o 


r "] r- 


~l~l 


apeaas a determinadas linhas de micros podem ser 
identificados por meio dos seguintes sfmbolos: 


^■■■i 


■ ■ 


m 


programas que $i 

especificos para ; 


seguem passam a ser 
linna indicada. 


mmmm Spectrum 


■Jl TRSColor L. 


■J Apple II 



APLICACOES 

Novas rotinas para o seu banco de dados que Ihe permitirao 
organizar melhor as informacoes. 

PROGRAMACAO DE JOGOS 

Um jogo de adivinhacao de palavras inspirado no "jogo da forca". 
Muito versatil, ele agrada a todas as idades. 

PROGRAMACAO BASIC 

Comandos que permitem ao micro olhar para a sua propria tela: 
uteis, sobretudo, para jogos em que ocorrem colisoes. 

CGDIGO DE MAQUINA 

Use codigo de maquina para criar efeitos 
sonoros no Apple e no TK-2000. 



CURSO 



prM*' 



%b 



ot PROGR^^ 



-PROG 



RAfA^ 



OE JOGOS 








